home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
013
/
rickstest.bas
< prev
next >
Wrap
BASIC Source File
|
1995-03-17
|
311b
|
16 lines
10 screen 1,4,0
11 pena 4
20 scnclr : goto 1000
100 ask mouse x%,y%,b%:? at (0,0);x%;y%;
101 if b%=0 then 100
102 RETURN
1000 gosub 100
1010 x1%=x%:y1%=y%
1020 gosub 100
1030 x2%=x%:y2%=y%
1050 box(y1%,x1%;y2%,x2%) ,1
1060 gosub 100
1070 scnclr
1080 goto 1000
2000 BOX(50,50;100,100) ,1